home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00076_Script_76 < prev    next >
Text File  |  1996-11-09  |  2KB  |  78 lines
  1. on mouseDown
  2.   
  3.   global resize,select
  4.   if select then exit
  5.   if not resize then
  6.     
  7.     set list_old=[0,0,0,0,0]
  8.     set count=1
  9.     --mette i filmati presenti ad off
  10.     repeat with Loop in [32,33,39,40,41] 
  11.       if the casttype of cast (the castnum of sprite Loop) = #digitalvideo then
  12.         if the visible of sprite Loop then 
  13.           set rv=the castnum of  sprite Loop
  14.           set the video of cast rv to false
  15.           --updatestage
  16.           setat list_old,count,the castnum of sprite Loop
  17.           set the castnum of sprite Loop to 86
  18.           --updatestage
  19.           set the video of cast rv to true
  20.           
  21.           
  22.           
  23.         end if
  24.       end if
  25.       updatestage
  26.       set  count = count+1
  27.     end repeat
  28.     
  29.     -- simula il moveable
  30.     set SPRITE_=38
  31.     
  32.     repeat while the mouseDown
  33.       -- set the loch of sprite SPRITE_ to the mouseH
  34.       -- set the locv of sprite SPRITE_ to the mouseV
  35.       updatestage
  36.     end repeat
  37.     
  38.     set count=1
  39.     --mette i filmati presenti ad on
  40.     repeat with Loop in [32,33,39,40,41] 
  41.       
  42.       if getat (list_old,Count) then 
  43.         set the castnum of sprite Loop to getat (list_old,Count)
  44.       end if
  45.       set count =count +1
  46.       
  47.     end repeat
  48.     updatestage
  49.     
  50.     
  51.   else  
  52.     global LARGHEZZA,PaginaCorrente,COUNTER
  53.     set MYSPRITE=38
  54.     set Corrente=getat(LARGHEZZA,PaginaCorrente)
  55.     
  56.     set the CAST1 of Corrente=COUNTER
  57.     set text_ to the text of cast (the castnum of sprite MYSPRITE)
  58.     if COUNTER=1 then
  59.       set the castNum of sprite MYSPRITE = 44
  60.     else if COUNTER=2 then
  61.       set the castnum of sprite MYSPRITE =72
  62.   else  if COUNTER=3 then
  63.       set the castnum of sprite MYSPRITE =73
  64.     else  if COUNTER=4 then
  65.       set the castnum of sprite MYSPRITE =123
  66.     else  if COUNTER=5 then
  67.       set the castnum of sprite MYSPRITE =124
  68.     else  
  69.       set the castnum of sprite MYSPRITE =125
  70.     end if
  71.     
  72.     set the text of cast (the castnum of sprite MYSPRITE) to text_
  73.     
  74.   end if
  75.   set COUNTER=COUNTER+1
  76.   if COUNTER>6 then set COUNTER = 1
  77.   updatestage
  78. end